home *** CD-ROM | disk | FTP | other *** search
- Path: uunet!bellcore!rutgers!usc!elroy.jpl.nasa.gov!lll-winken!sun-barr!newstop!exodus!CS.UCLA.EDU
- From: william@CS.UCLA.EDU (William Cheng)
- Newsgroups: comp.sources.x
- Subject: v10i064: tgif, Patch6, Part01/03
- Message-ID: <4698@exodus.Eng.Sun.COM>
- Date: 18 Dec 90 02:07:01 GMT
- References: <csx-10i064:tgif@uunet.UU.NET>
- Sender: news@exodus.Eng.Sun.COM
- Lines: 846
- Approved: argv@sun.com
-
- Submitted-by: william@CS.UCLA.EDU (William Cheng)
- Posting-number: Volume 10, Issue 64
- Archive-name: tgif/patch6.01
- Patch-To: Volume 7, Issue 56-76 (original: tgif-1.2)
- Patch-To: Volume 8, Issue 46-48 (Patch1: tgif-1.2 => tgif-1.9)
- Patch-To: Volume 8, Issue 58-60 (Patch2: tgif-1.9 => tgif-1.12)
- Patch-To: Volume 8, Issue 87-89 (Patch3: tgif-1.12 => tgif-1.13)
- Patch-To: Volume 8, Issue 94 (Patch4: tgif-1.13 => tgif-1.14)
- Patch-To: Volume 8, Issue 95 (Patch5: tgif-1.14 => tgif-1.15)
-
- Patch6 of tgif takes tgif-1.15 to tgif-1.16. Below is a list of
- added features/bug fixes, followed by the actual patch.
-
- tgif-1.15 => tgif-1.16
-
- 1) Fix bugs related makeing a grouped object iconic. Used to have the
- wrong file name.
- 2) Remove the restriction of just being able to edit files under the
- current directory.
- 3) New implementation of domains. Now a domain specifies a search path
- for the .sym files.
-
- The following is the patch to take tgif from version 1.15 to 1.16.
- ---------------------------------> cut here <---------------------------------
- *** box.c.orig Sat Oct 27 17:47:20 1990
- --- box.c Sat Oct 27 17:47:21 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/box.c,v 1.7 90/08/13 09:23:32 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/box.c,v 1.8 90/10/27 15:09:43 william Exp $";
- #endif
-
- *** choice.c.orig Sat Oct 27 17:47:26 1990
- --- choice.c Sat Oct 27 17:47:27 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/choice.c,v 1.8 90/08/21 15:55:15 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/choice.c,v 1.9 90/10/27 15:12:25 william Exp $";
- #endif
-
- ***************
- *** 224,227 ****
- --- 224,240 ----
- XFillRectangle (mainDisplay, choiceWindow, rasterGC, 3*choiceImageW, 0,
- choiceImageW, choiceImageH);
- +
- + /* XGCValues values;
- +
- + XClearArea (mainDisplay, choiceWindow, 3*choiceImageW, 0,
- + choiceImageW, choiceImageH, FALSE);
- + if (curDash != 0)
- + XSetDashes (mainDisplay, rasterGC, 0, dashList[curDash],
- + dashListLength[curDash]);
- + values.line_width = widthOfLine[lineWidth];
- + XChangeGC (mainDisplay, rasterGC, GCLineWidth, &values);
- + XDrawLine (mainDisplay, choiceWindow, rasterGC,
- + 3*choiceImageW+3, (int)(choiceImageH/2), 4*choiceImageW-3,
- + (int)(choiceImageH/2)); */
- }
-
- *** color.c.orig Sat Oct 27 17:47:33 1990
- --- color.c Sat Oct 27 17:47:34 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/color.c,v 1.11 90/07/31 15:11:08 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/color.c,v 1.14 90/10/27 16:29:54 william Exp $";
- #endif
-
- ***************
- *** 28,31 ****
- --- 28,34 ----
- int * xorColorPixels = NULL;
- char * * colorMenuItems = NULL;
- + XColor * tgifColors;
- + int maxRGB = 0;
- + int colorDump = FALSE;
-
- static char * defaultColorMenuItems[MAXCOLORS] =
- ***************
- *** 63,67 ****
- if (i == maxColors)
- {
- ! printf ("Can not find color `%s', use `%s' instead.\n", s,
- colorMenuItems[defaultColorIndex]);
- return (defaultColorIndex);
- --- 66,70 ----
- if (i == maxColors)
- {
- ! printf ("Can not find color '%s', use '%s' instead.\n", s,
- colorMenuItems[defaultColorIndex]);
- return (defaultColorIndex);
- ***************
- *** 77,80 ****
- --- 80,84 ----
- int num, color_in_x_default = FALSE;
- int bg_allocated=FALSE, fg_allocated=FALSE, brdr_allocated=FALSE;
- + int tmp_max, white_allocated=FALSE, black_allocated=TRUE;
-
- if ((c_ptr = XGetDefault (mainDisplay, TOOL_NAME, "ReverseVideo")) != NULL)
- ***************
- *** 148,151 ****
- --- 152,157 ----
- colorMenuItems = (char * *) calloc (maxColors, sizeof (char *));
-
- + tgifColors = (XColor *) calloc (maxColors, sizeof (XColor));
- +
- if (color_in_x_default)
- {
- ***************
- *** 176,179 ****
- --- 182,189 ----
- &exact_def);
- colorPixels[i] = color.pixel;
- +
- + tgifColors[i].red = color.red;
- + tgifColors[i].green = color.green;
- + tgifColors[i].blue = color.blue;
-
- if (strcmp (colorMenuItems[i], fg_color) == 0)
- ***************
- *** 248,251 ****
- --- 258,269 ----
- colorIndex = 0;
- }
- + XAllocNamedColor(mainDisplay, mainColormap, "black", &color, &exact_def);
- + tmp_max = max(color.red,max(color.green,color.blue));
- + if (tmp_max > maxRGB) maxRGB = tmp_max;
- + XAllocNamedColor(mainDisplay, mainColormap, "white", &color, &exact_def);
- + tmp_max = max(color.red,max(color.green,color.blue));
- + if (tmp_max > maxRGB) maxRGB = tmp_max;
- + if (tmp_max == 0)
- + printf ("Warning: Unexpected maximum RGB intensity 0.");
- }
-
- *** copypaste.c.orig Sat Oct 27 17:47:39 1990
- --- copypaste.c Sat Oct 27 17:47:40 1990
- ***************
- *** 7,11 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/copypaste.c,v 1.8 90/08/25 17:26:51 william Exp $";
- #endif
-
- --- 7,11 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/copypaste.c,v 1.10 90/09/04 07:26:02 william Exp $";
- #endif
-
- ***************
- *** 219,225 ****
- return;
- }
- - #ifdef KANJI
- - myPasteKanji (cut_buffer, len);
- - #endif
- cut_buffer++;
- len--;
- --- 219,222 ----
- *** cursor.c.orig Sat Oct 27 17:47:45 1990
- --- cursor.c Sat Oct 27 17:47:46 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/cursor.c,v 1.5 90/07/16 10:31:01 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/cursor.c,v 1.6 90/09/04 17:59:03 william Exp $";
- #endif
-
- ***************
- *** 17,20 ****
- --- 17,21 ----
- #include "setup.e"
-
- + #include "bitmaps/null.bm"
- #include "bitmaps/nullmask.bm"
- #include "bitmaps/text_cur_image.bm"
- ***************
- *** 29,32 ****
- --- 30,34 ----
- static Pixmap textPixmap;
- static Pixmap nullPixmap;
- + static Pixmap nullMaskPixmap;
-
- static XImage * textCursorImage;
- ***************
- *** 85,91 ****
- handCursor = XCreateFontCursor (mainDisplay, XC_hand2);
-
- ! nullPixmap = XCreatePixmap (mainDisplay, mainWindow, nullmask_width,
- nullmask_height, 1);
- ! nullCursor = XCreatePixmapCursor (mainDisplay, nullPixmap, nullPixmap,
- &color, &color, 0, 0);
- }
- --- 87,95 ----
- handCursor = XCreateFontCursor (mainDisplay, XC_hand2);
-
- ! nullPixmap = XCreatePixmap (mainDisplay, mainWindow, null_width,
- ! null_height, 1);
- ! nullMaskPixmap = XCreatePixmap (mainDisplay, mainWindow, nullmask_width,
- nullmask_height, 1);
- ! nullCursor = XCreatePixmapCursor (mainDisplay, nullPixmap, nullMaskPixmap,
- &color, &color, 0, 0);
- }
- ***************
- *** 112,115 ****
- --- 116,120 ----
-
- XFreePixmap (mainDisplay, nullPixmap);
- + XFreePixmap (mainDisplay, nullMaskPixmap);
- XFreeCursor (mainDisplay, nullCursor);
- }
- *** file.c.orig Sat Oct 27 17:48:07 1990
- --- file.c Sat Oct 27 17:48:08 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/file.c,v 1.32 90/08/15 16:00:43 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/file.c,v 1.38 90/10/27 15:07:35 william Exp $";
- #endif
-
- ***************
- *** 49,52 ****
- --- 49,54 ----
- #define START_HAVING_ATTRS 8
-
- + extern char * getenv ();
- +
- char curFileName[MAXPATHLENGTH];
- int curFileDefined = FALSE;
- ***************
- *** 67,70 ****
- --- 69,73 ----
- curFileName[0] = '\0';
- curFileDefined = FALSE;
- + *curSymDir = '\0';
- }
-
- ***************
- *** 184,188 ****
- {
- char new_file_name[MAXPATHLENGTH], s[MAXPATHLENGTH];
- ! char new_full_name[MAXPATHLENGTH];
- FILE * fp;
- int count = 0, len;
- --- 187,191 ----
- {
- char new_file_name[MAXPATHLENGTH], s[MAXPATHLENGTH];
- ! char new_full_name[MAXPATHLENGTH], tmp_str[MAXPATHLENGTH];
- FILE * fp;
- int count = 0, len;
- ***************
- *** 243,249 ****
- }
-
- ! strcpy (new_full_name, curDomainName);
- ! if (*curDomainName != '\0') strcat (new_full_name, "/");
- ! strcat (new_full_name, new_file_name);
-
- if (!OkayToCreateFile (new_full_name)) return;
- --- 246,257 ----
- }
-
- ! if (*new_file_name == '/')
- ! strcat (new_full_name, new_file_name);
- ! else
- ! {
- ! strcpy (new_full_name, curDir);
- ! strcat (new_full_name, "/");
- ! strcat (new_full_name, new_file_name);
- ! }
-
- if (!OkayToCreateFile (new_full_name)) return;
- ***************
- *** 256,266 ****
- }
-
- ! strcpy (curFileName, new_file_name);
- curFileDefined = TRUE;
- ! sprintf (s, "Saving '%s' ...", new_file_name);
- Msg (s);
- Save (fp, botObj, 0);
- fclose (fp);
- ! sprintf (s, "File '%s' saved.", new_file_name);
- Msg (s);
- SetFileModified (FALSE);
- --- 264,279 ----
- }
-
- ! strcpy (tmp_str, curDir);
- ! SetCurDir (new_full_name);
- ! *curSymDir = '\0';
- curFileDefined = TRUE;
- !
- ! if (strcmp (tmp_str, curDir) != 0) UpdateDirInfo ();
- !
- ! sprintf (s, "Saving '%s/%s' ...", curDir, curFileName);
- Msg (s);
- Save (fp, botObj, 0);
- fclose (fp);
- ! sprintf (s, "File '%s/%s' saved.", curDir, curFileName);
- Msg (s);
- SetFileModified (FALSE);
- ***************
- *** 314,323 ****
- }
-
- ! strcpy (full_name, curDomainName);
- ! if (*curDomainName != '\0') strcat (full_name, "/");
- ! strcat (full_name, curFileName);
- if ((fp = fopen (full_name, "w")) == NULL)
- {
- ! sprintf (s, "Can not open %s, file not saved.", curFileName);
- Msg (s);
- return;
- --- 327,346 ----
- }
-
- ! if (strcmp (ext, "sym") == 0)
- ! {
- ! strcpy (full_name, curSymDir);
- ! strcat (full_name, "/");
- ! strcat (full_name, curFileName);
- ! }
- ! else if (strcmp (ext, "obj") == 0)
- ! {
- ! strcpy (full_name, curDir);
- ! strcat (full_name, "/");
- ! strcat (full_name, curFileName);
- ! }
- !
- if ((fp = fopen (full_name, "w")) == NULL)
- {
- ! sprintf (s, "Can not open '%s', file not saved.", full_name);
- Msg (s);
- return;
- ***************
- *** 324,328 ****
- }
-
- ! sprintf (s, "Saving '%s' ...", curFileName);
- Msg (s);
-
- --- 347,351 ----
- }
-
- ! sprintf (s, "Saving '%s' ...", full_name);
- Msg (s);
-
- ***************
- *** 330,334 ****
-
- fclose (fp);
- ! sprintf (s, "File '%s' saved.", curFileName);
- Msg (s);
- SetFileModified (FALSE);
- --- 353,357 ----
-
- fclose (fp);
- ! sprintf (s, "File '%s' saved.", full_name);
- Msg (s);
- SetFileModified (FALSE);
- ***************
- *** 424,428 ****
- if (colorIndex >= maxColors)
- {
- ! printf ("Can not find color `%s', use `%s' instead.\n", s,
- colorMenuItems[defaultColorIndex]);
- colorIndex = defaultColorIndex;
- --- 447,451 ----
- if (colorIndex >= maxColors)
- {
- ! printf ("Can not find color '%s', use `%s' instead.\n", s,
- colorMenuItems[defaultColorIndex]);
- colorIndex = defaultColorIndex;
- ***************
- *** 615,656 ****
- void ChangeDomain ()
- {
- - char domain_name[MAXPATHLENGTH], s[MAXPATHLENGTH];
- register int i;
-
- if (SelectDomain (domain_name) == INVALID) return;
-
- ! if (strcmp (domain_name, "..") == 0)
- ! {
- ! if (*curDomainName == '\0')
- ! Msg ("Already at the top. Domain not changed.");
- ! else
- ! {
- ! i = strlen (curDomainName) - 1;
- ! for ( ; i >= 0 && curDomainName[i] != '/'; i--) ;
- ! if (i >= 0)
- ! {
- ! curDomainName[i] = '\0';
- ! sprintf (s, "Current domain is %s.", curDomainName);
- ! Msg (s);
- ! }
- ! else
- ! {
- ! curDomainName[0] = '\0';
- ! Msg ("At the top of the domain hierarchy.");
- ! }
- ! }
- ! }
- ! else if (strcmp (domain_name, ".") == 0)
- ! {
- ! sprintf (s, "Current domain is %s.", curDomainName);
- ! Msg (s);
- ! }
- else
- ! {
- ! if (*curDomainName != '\0') strcat (curDomainName, "/");
- ! strcat (curDomainName, domain_name);
- ! sprintf (s, "Current domain is %s.", curDomainName);
- ! Msg (s);
- ! }
- }
-
- --- 638,659 ----
- void ChangeDomain ()
- {
- register int i;
- + char domain_name[MAXPATHLENGTH], env_str[MAXPATHLENGTH];
- + char s[MAXSTRING], s1[MAXSTRING], * c_ptr;
-
- if (SelectDomain (domain_name) == INVALID) return;
-
- ! sprintf (env_str, "TGIF_%s", domain_name);
- ! if ((c_ptr = getenv (env_str)) == NULL)
- ! ParseSymPath (".");
- else
- ! ParseSymPath (c_ptr);
- !
- ! UpdateSymInfo ();
- !
- ! strcpy (curDomainName, domain_name);
- ! sprintf (s, "Current domain is '%s'.", curDomainName);
- ! sprintf (s1, "Symbol path set to '%s'.", curDomainPath);
- ! TwoLineMsg (s, s1);
- }
-
- ***************
- *** 659,674 ****
- struct ObjRec * obj_ptr, * saved_top_obj, * saved_bot_obj;
- char file_name[MAXPATHLENGTH], s[MAXPATHLENGTH];
- - char full_name[MAXPATHLENGTH];
- FILE * fp;
-
- ! if (SelectFileName ("obj", "Please Select A File To IMPORT ...",
- ! file_name) == INVALID) return;
-
- strcat (file_name, ".obj");
- - strcpy (full_name, curDomainName);
- - if (*curDomainName != '\0') strcat (full_name, "/");
- - strcat (full_name, file_name);
-
- ! if ((fp = fopen (full_name, "r")) == NULL)
- {
- sprintf (s, "Can not import '%s'.", file_name);
- --- 662,674 ----
- struct ObjRec * obj_ptr, * saved_top_obj, * saved_bot_obj;
- char file_name[MAXPATHLENGTH], s[MAXPATHLENGTH];
- FILE * fp;
-
- ! if (SelectFileName ("Please select a file to IMPORT ...", file_name)
- ! == INVALID)
- ! return;
-
- strcat (file_name, ".obj");
-
- ! if ((fp = fopen (file_name, "r")) == NULL)
- {
- sprintf (s, "Can not import '%s'.", file_name);
- ***************
- *** 720,732 ****
- FILE * fp;
-
- ! if (SelectFileName ("obj", "Please Select A File To OPEN ...",
- ! file_name) == INVALID) return;
-
- strcat (file_name, ".obj");
- - strcpy (full_name, curDomainName);
- - if (*curDomainName != '\0') strcat (full_name, "/");
- - strcat (full_name, file_name);
-
- ! if ((fp = fopen (full_name, "r")) == NULL)
- {
- sprintf (s, "Can not open '%s'.", file_name);
- --- 720,729 ----
- FILE * fp;
-
- ! if (SelectFileName ("Please select a file to OPEN ...",file_name) == INVALID)
- ! return;
-
- strcat (file_name, ".obj");
-
- ! if ((fp = fopen (file_name, "r")) == NULL)
- {
- sprintf (s, "Can not open '%s'.", file_name);
- ***************
- *** 758,762 ****
-
- fclose (fp);
- ! strcpy (curFileName, file_name);
- curFileDefined = TRUE;
-
- --- 755,760 ----
-
- fclose (fp);
- ! SetCurDir (file_name);
- ! *curSymDir = '\0';
- curFileDefined = TRUE;
-
- ***************
- *** 1012,1017 ****
- }
-
- ! strcpy (ps_file, curDomainName);
- ! if (*curDomainName != '\0') strcat (ps_file, "/");
- strcat (ps_file, curFileName);
- len = strlen (ps_file);
- --- 1010,1015 ----
- }
-
- ! strcpy (ps_file, curDir);
- ! strcat (ps_file, "/");
- strcat (ps_file, curFileName);
- len = strlen (ps_file);
- *** font.c.orig Sat Oct 27 17:48:30 1990
- --- font.c Sat Oct 27 17:48:31 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/font.c,v 1.9 90/08/16 15:44:24 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/font.c,v 1.11 90/10/27 15:45:24 william Exp $";
- #endif
-
- ***************
- *** 25,35 ****
- #include "text.e"
-
- - #define COUR8R 24
- - #define COUR10R 25
- - #define COUR12R 26
- - #define COUR14R 27
- - #define COUR18R 28
- - #define COUR24R 29
- -
- #define FONTS_PER_DPI (((MAXFONTS-1)*MAXFONTSTYLES+1)*MAXFONTSIZES)
- #define FONTTABLESIZE (MAXFONTDPIS*FONTS_PER_DPI)
- --- 25,28 ----
- ***************
- *** 37,40 ****
- --- 30,47 ----
- /* #define FONTTABLESIZE (MAXFONTSIZES*MAXFONTSTYLES*MAXFONTS) */
-
- + #define COUR8R_75 FontIndex(FONT_DPI_75,FONT_COU,0,STYLE_NR)
- + #define COUR10R_75 FontIndex(FONT_DPI_75,FONT_COU,1,STYLE_NR)
- + #define COUR12R_75 FontIndex(FONT_DPI_75,FONT_COU,2,STYLE_NR)
- + #define COUR14R_75 FontIndex(FONT_DPI_75,FONT_COU,3,STYLE_NR)
- + #define COUR18R_75 FontIndex(FONT_DPI_75,FONT_COU,4,STYLE_NR)
- + #define COUR24R_75 FontIndex(FONT_DPI_75,FONT_COU,5,STYLE_NR)
- +
- + #define COUR11R_100 FontIndex(FONT_DPI_100,FONT_COU,0,STYLE_NR)
- + #define COUR14R_100 FontIndex(FONT_DPI_100,FONT_COU,1,STYLE_NR)
- + #define COUR17R_100 FontIndex(FONT_DPI_100,FONT_COU,2,STYLE_NR)
- + #define COUR20R_100 FontIndex(FONT_DPI_100,FONT_COU,3,STYLE_NR)
- + #define COUR25R_100 FontIndex(FONT_DPI_100,FONT_COU,4,STYLE_NR)
- + #define COUR34R_100 FontIndex(FONT_DPI_100,FONT_COU,5,STYLE_NR)
- +
- struct MyFontRec {
- XFontStruct * xfs;
- ***************
- *** 382,385 ****
- --- 389,393 ----
- {
- register int i;
- + int ruler_index, default_index;
-
- pointSize = (curFontDPI==FONT_DPI_75) ? pointSize75 : pointSize100;
- ***************
- *** 388,404 ****
- for (i = 0; i < FONTTABLESIZE; i++) myFontInfo[i].valid = FALSE;
-
- ! if ((myFontInfo[COUR18R].xfs =
- ! XLoadQueryFont (mainDisplay, fontNameStr[COUR18R])) == NULL)
- ! { printf ("Can not open %s. Abort.\n\n", fontNameStr[COUR18R]); exit (-1); }
-
- ! myFontInfo[COUR18R].valid = TRUE;
-
- ! if ((myFontInfo[COUR10R].xfs =
- ! XLoadQueryFont (mainDisplay, fontNameStr[COUR10R])) == NULL)
- ! { printf ("Can not open %s. Abort.\n\n", fontNameStr[COUR10R]); exit (-1); }
-
- ! myFontInfo[COUR10R].valid = TRUE;
- !
- ! rulerFontPtr = myFontInfo[COUR10R].xfs;
- rulerFontWidth = rulerFontPtr->max_bounds.width;
- rulerFontAsc = rulerFontPtr->max_bounds.ascent;
- --- 396,445 ----
- for (i = 0; i < FONTTABLESIZE; i++) myFontInfo[i].valid = FALSE;
-
- ! default_index = COUR18R_75;
- ! if ((myFontInfo[default_index].xfs =
- ! XLoadQueryFont (mainDisplay, fontNameStr[default_index])) == NULL)
- ! {
- ! default_index = COUR17R_100;
- ! if ((myFontInfo[default_index].xfs =
- ! XLoadQueryFont (mainDisplay, fontNameStr[default_index])) == NULL)
- ! {
- ! printf ("Can not open %s or %s. Abort.\n\n",
- ! fontNameStr[COUR18R_75], fontNameStr[COUR17R_100]);
- ! exit (-1);
- ! }
- ! }
- ! myFontInfo[default_index].valid = TRUE;
-
- ! if (default_index == COUR18R_75)
- ! {
- ! ruler_index = COUR10R_75;
- ! if ((myFontInfo[ruler_index].xfs =
- ! XLoadQueryFont (mainDisplay, fontNameStr[ruler_index])) == NULL)
- ! {
- ! printf ("Can not open %s. Abort.\n\n", fontNameStr[ruler_index]);
- ! exit (-1);
- ! }
- ! curFontDPI = FONT_DPI_75;
- ! }
- ! else
- ! {
- ! ruler_index = COUR11R_100;
- ! if ((myFontInfo[ruler_index].xfs =
- ! XLoadQueryFont (mainDisplay, fontNameStr[ruler_index])) == NULL)
- ! {
- ! printf ("Can not open %s. Abort.\n\n", fontNameStr[ruler_index]);
- ! exit (-1);
- ! }
- ! curFontDPI = FONT_DPI_100;
- ! }
- ! myFontInfo[ruler_index].valid = TRUE;
-
- ! defaultFontPtr = myFontInfo[default_index].xfs;
- ! defaultFontWidth = defaultFontPtr->max_bounds.width;
- ! defaultFontAsc = defaultFontPtr->max_bounds.ascent;
- ! defaultFontDes = defaultFontPtr->max_bounds.descent;
- ! defaultFontHeight = defaultFontAsc + defaultFontDes;
-
- ! rulerFontPtr = myFontInfo[ruler_index].xfs;
- rulerFontWidth = rulerFontPtr->max_bounds.width;
- rulerFontAsc = rulerFontPtr->max_bounds.ascent;
- ***************
- *** 405,414 ****
- rulerFontDes = rulerFontPtr->max_bounds.descent;
- rulerFontHeight = rulerFontAsc + rulerFontDes;
- -
- - defaultFontPtr = myFontInfo[COUR18R].xfs;
- - defaultFontWidth = defaultFontPtr->max_bounds.width;
- - defaultFontAsc = defaultFontPtr->max_bounds.ascent;
- - defaultFontDes = defaultFontPtr->max_bounds.descent;
- - defaultFontHeight = defaultFontAsc + defaultFontDes;
- }
-
- --- 446,449 ----
- *** frontend.c.orig Sat Oct 27 17:48:35 1990
- --- frontend.c Sat Oct 27 17:48:36 1990
- ***************
- *** 0 ****
- --- 1,13 ----
- + /*
- + * Author: William Chia-Wei Cheng (william@cs.ucla.edu)
- + *
- + * Copyright (C) 1990, William Cheng.
- + */
- + #ifndef lint
- + static char RCSid[] =
- + "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/frontend.c,v 1.1 90/08/28 09:56:33 william Exp $";
- + #endif
- +
- + int lastFile;
- + short * pDrawFontAsc;
- + short * pDrawFontDes;
- *** mainloop.c.orig Sat Oct 27 17:48:42 1990
- --- mainloop.c Sat Oct 27 17:48:43 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/mainloop.c,v 1.15 90/08/16 09:35:09 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/mainloop.c,v 1.20 90/10/25 15:02:22 william Exp $";
- #endif
-
- ***************
- *** 42,46 ****
- char initMsg1[80], initMsg2[80];
-
- ! static quitDraw = TRUE;
-
- static
- --- 42,46 ----
- char initMsg1[80], initMsg2[80];
-
- ! static int quitDraw = TRUE;
-
- static
- ***************
- *** 150,154 ****
- {
- XEvent input, ev;
- ! char * c_ptr, file_name[256], s[256];
- int shorthand_rc, draw_rc;
- struct ObjRec * obj_ptr;
- --- 150,155 ----
- {
- XEvent input, ev;
- ! char * c_ptr, file_name[MAXPATHLENGTH], s[MAXPATHLENGTH];
- ! char full_name[MAXPATHLENGTH];
- int shorthand_rc, draw_rc;
- struct ObjRec * obj_ptr;
- ***************
- *** 199,203 ****
-
- fclose (fp);
- ! strcpy (curFileName, file_name);
- curFileDefined = TRUE;
-
- --- 200,214 ----
-
- fclose (fp);
- !
- ! if (*file_name == '/')
- ! strcat (full_name, file_name);
- ! else
- ! {
- ! strcpy (full_name, curDir);
- ! strcat (full_name, "/");
- ! strcat (full_name, file_name);
- ! }
- ! SetCurDir (full_name);
- ! *curSymDir = '\0';
- curFileDefined = TRUE;
-
- ***************
- *** 207,210 ****
- --- 218,222 ----
- }
- }
- + UpdateDirInfo ();
- }
- SaveDrawWinInfo ();
- *** menu.c.orig Sat Oct 27 17:48:53 1990
- --- menu.c Sat Oct 27 17:48:55 1990
- ***************
- *** 6,10 ****
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/menu.c,v 1.12 90/08/15 16:00:27 william Exp $";
- #endif
-
- --- 6,10 ----
- #ifndef lint
- static char RCSid[] =
- ! "@(#)$Header: /n/kona/u/tangram/u/william/X11/TGIF/RCS/menu.c,v 1.14 90/10/25 14:58:18 william Exp $";
- #endif
-
- ***************
- *** 485,493 ****
- if (curFileDefined)
- {
- ! strcpy (file_name, curFileName);
- ! strcpy (s, curDomainName);
- ! if (*curDomainName != '\0') strcat (s, "/");
- ! strcat (s, file_name);
- }
-
- if (fileModified) strcat (s, " [Modified]");
- --- 485,495 ----
- if (curFileDefined)
- {
- ! if (*curSymDir == '\0')
- ! sprintf (s, "%s:%s/%s", curDomainName, curDir, curFileName);
- ! else
- ! sprintf (s, "%s:%s/%s", curDomainName, curSymDir, curFileName);
- }
- + else
- + sprintf (s, "%s:[Unnamed]", curDomainName);
-
- if (fileModified) strcat (s, " [Modified]");
- ---------------------------------> cut here <---------------------------------
- --
- Bill Cheng // UCLA Computer Science Department // (213) 206-7135
- 3277 Boelter Hall // Los Angeles, California 90024 // USA
- william@CS.UCLA.EDU ...!{uunet|ucbvax}!cs.ucla.edu!william
-
- dan
- ----------------------------------------------------
- O'Reilly && Associates argv@sun.com / argv@ora.com
- Opinions expressed reflect those of the author only.
- --
- dan
- ----------------------------------------------------
- O'Reilly && Associates argv@sun.com / argv@ora.com
- Opinions expressed reflect those of the author only.
-